El Mac 1/Magazine.iso/EL MAC 1/Infotenimiento/Rednex/REDNEX.DIR/00025.ls

Text File | 1995-08-21 | 1.7 KB | 78 lines

on mouseUp
  set H1 to 159
  set H2 to 247
  set H3 to 373
  set H4 to 479
  set H5 to 565
  repeat with x = 2 to 3
    puppetSprite(x, 1)
  end repeat
  set v to the castNum of sprite 3
  set x to the locH of sprite 2
  if x < 159 then
    nothing()
  else
    set the locH of sprite 2 to the locH of sprite 2 - 70
    if the locH of sprite 2 < H1 then
      set the locH of sprite 2 to H1
    end if
    set x to the locH of sprite 2
    put x
    if (x > H1) and (x < H2) then
      set the locH of sprite 2 to H1
    end if
    if (x > H2) and (x < H3) then
      set the locH of sprite 2 to H2
    end if
    if (x > H3) and (x < H4) then
      set the locH of sprite 2 to H3
    end if
    if (x > H4) and (x < H5) then
      set the locH of sprite 2 to H4
    end if
    if (x > H5) and (x < H5) then
      set the locH of sprite 2 to H5
    end if
    set x to the locH of sprite 2
    if x = H3 then
      set the castNum of sprite 3 to 50
    else
      if x = H4 then
        set the castNum of sprite 3 to 48
      else
        if x = H5 then
          set the castNum of sprite 3 to 51
        else
          if x = H1 then
            set the castNum of sprite 3 to 49
          else
            if x = H2 then
              set the castNum of sprite 3 to 52
            end if
          end if
        end if
      end if
    end if
    if x = H4 then
      set the soundLevel to 5
    else
      if x = H3 then
        set the soundLevel to 4
      else
        if x = H2 then
          set the soundLevel to 3
        else
          if x = H1 then
            set the soundLevel to 1
          else
            if x = H5 then
              set the soundLevel to 7
            end if
          end if
        end if
      end if
    end if
    updateStage()
  end if
end